﻿Imports mshtml

Public Class test


    Private Sub test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        WebBrowser1.DocumentText = "<html><body></body></html>"
        Dim doc As IHTMLDocument2 = WebBrowser1.Document.DomDocument
        doc.designMode = "On"

    End Sub
End Class